(calc-left-divide): New function.

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 4c6820ca90e4bd259d64dd0d6b730d3b3a843165..bd161132ddf420a1617103e347957a853952cee9 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2027,6 +2027,10 @@ See calc-keypad for details."
   (calc-slow-wrapper
    (calc-binary-op "/" 'calcFunc-div arg 0 'calcFunc-inv '/)))
 
+(defun calc-left-divide (arg)
+  (interactive "P")
+  (calc-slow-wrapper
+   (calc-binary-op "ldiv" 'calcFunc-ldiv arg 0 nil nil)))
 
 (defun calc-change-sign (arg)
   (interactive "P")